Chip: Special Tips & Tricks for Windows 95/Chip Wintips.iso/sterown/grafika/vid12v20/install.dat

INSTALL Professional project | 1996-01-09 | 32.9 KB | 790 lines

//*****************************************************************************
// Name         : INSTALL.DAT
// Project      : Installation miro CAD-BASIC-DISK (VGA-GTI)
// Function     : Scriptfile for KDC-INSTALL
// Author       : KF / miro Computer Products AG,
//                Carl-Miele-Str. 4, D-38112 Braunschweig
// created      : 20.12.95
// changed      : KF 20.12.95
// revision......when...................who.....->.where.and.what..............
// $Log:$
//*****************************************************************************

//*** project header block ****************************************************

@DefineProject
  @Name       = "miro∙win - High-speed drivers for CAD"
  @Version    = "1.00"
  @Subdir     = "\\"
  @OutDrive   = @BootDrive
  @InDiskBell = 1
@EndProject


//*** define variables ********************************************************

@DefineVars
  @QString @mName     = "CAD basis disk"
  @Integer @UnInstall = @False
  @Integer @OldLang   = 0
@EndVars


//*** input language by user **************************************************

@SetGroup (E)
@OldLang = 1
@SetLang (1)

INPUTLANG:
@GetGroups
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")

@If ('D' [= @Group)
@MoveCStr (1,1,63, " miro∙win Installation - High speed drivers for CAD")
@MoveCStr (4,1,31, "Willkommen bei der miro∙win Installation Version @Version")
//@MoveCStr (5,1,31, "")
@MoveCStr (7,1,31, "Sprachauswahl:")
@Set D = "Deutsch"
@Set E = "English"
@Set F = "Français"
@MoveCStr (19,2,63, "<\x18\x19>     : Auswahlmarke bewegen")
@MoveCStr (20,2,63, "<\x11\xD9>     : Sprache akzeptieren und fortfahren")
@MoveCStr (21,2,63, "<ESC>    : Installation abbrechen")
@ElseIf ('F' [= @Group)
@MoveCStr (1,1,63, " Installation de miro∙win - Gestionnaires haute vitesse pour CAD")
@MoveCStr (4,1,31, "Bienvenue dans le programme d'installation de miro∙win, version @Version")
//@MoveCStr (5,1,31, "")
@MoveCStr (7,1,31, "Sélection de langue:")
@Set E = "English"
@Set D = "Deutsch"
@Set F = "Français"
@MoveCStr (19,2,63, "<\x18\x19>     : déplacer la barre de sélection")
@MoveCStr (20,2,63, "<\x11\xD9>     : utiliser la langue sélectionnée et continuer")
@MoveCStr (21,2,63, "<ECHAP>    : abandonner l'installation")
@Else
@MoveCStr (1,1,63, " miro∙win installation - High speed drivers for CAD")
@MoveCStr (4,1,31, "Welcome to the miro∙win installation version @Version")
//@MoveCStr (5,1,31, "")
@MoveCStr (7,1,31, "Language selection:")
@Set E = "English"
@Set D = "Deutsch"
@Set F = "Français"
@MoveCStr (19,2,63, "<\x18\x19>     : move selection bar")
@MoveCStr (20,2,63, "<\x11\xD9>     : take selected language and continue")
@MoveCStr (21,2,63, "<ESC>    : abort installation")
@EndIf
@EndGroups

@If ('D' [= @Group && @OldLang != 0)
  @FlushGroups ()
  @SetGroup (D)
  @ClearGroup (E)
  @OldLang = 0
  @SetLang (0)
//@Goto INPUTLANG
@ElseIf ('F' [= @Group && @OldLang != 2)
  @FlushGroups ()
  @SetGroup (F)
  @ClearGroup (E)
  @OldLang = 2
  @SetLang (2)
//  @Goto INPUTLANG
@ElseIf ('E' [= @Group && @OldLang != 1)
  @FlushGroups ()
  @SetGroup (E)
  @OldLang = 1
  @SetLang (1)
//@Goto INPUTLANG
@EndIf


//*** define language dependant strings ***************************************

@DefineVars
@If ('D' [= @Group)

@QString @M00 = " miro∙win Installation - High speed drivers for CAD"

@QString @M10 = "<\x18\x19>        : Auswahlmarke bewegen"
@QString @M11 = "<ESC        : Installation abbrechen"
@QString @M12 = "<Leertaste> : Punkt auswählen / deaktivieren"
@QString @M13 = "<\x11\xD9>        : Board akzeptieren und fortfahren"
@QString @M14 = "<\x11\xD9>        : alle ausgewählten Punkte akzeptieren und fortfahren"
@QString @M15 = "<\x11\xD9>        : Laufwerk akzeptieren und fortfahren"

@QString @M20 = "<\x1B\x1A>     : Cursor bewegen"
@QString @M21 = "<Einfg>  : Einfüge- und Überschreibmodus wechseln"
@QString @M22 = "<Entf>   : Zeichen unter Cursor löschen "
@QString @M23 = "<\x11\xC4>     : Zeichen links vom Cursor löschen"
@QString @M24 = "<\x11\xD9>     : Verzeichnis akzeptieren und fortfahren"
@QString @M25 = "<ESC>    : Installation abbrechen"

@QString @M30 = "Wählen Sie das Board aus, welches Sie installieren wollen:"
@QString @M31 = "Wählen Sie die Treiber aus, die Sie installieren wollen:"
@QString @M32 = "Installierte Software komplett entfernen"

@QString @M40 = "für AutoCAD Rel. 12 (miroGTI VGA)"
@QString @M46 = "für AutoCAD Rel. 11 (miroGTI VGA)"
@QString @M47 = "für AutoCAD Rel. 13 (miroGTI VGA)"
@QString @M112 = "for AutoCAD Rel. 12 (miroGTI VGA for Chinese)"
@QString @M111 = "for AutoCAD Rel. 11 (miroGTI VGA for Chinese)"
@QString @M113 = "for AutoCAD Rel. 13 (miroGTI VGA for Chinese)"

@QString @M140 = "nur System-Software"
@QString @M141 = "nur System-Software (für Zweischirmbetrieb)"

@QString @M50 = "Software entfernen:"

@QString @M60 = "Geben Sie das Verzeichnis für alle System-Software an:"
@QString @M61 = "Geben Sie das Verzeichnis Ihrer AutoCAD Rel. 12 Installation an:"
@QString @M62 = "Geben Sie das Verzeichnis Ihrer Autodesk Animator pro Installation an:"
@QString @M63 = "Geben Sie das Verzeichnis Ihrer MicroStation PC Installation an:"
@QString @M66 = "Geben Sie das Verzeichnis Ihrer AutoCAD Rel. 13 Installation an:"

@QString @M70 = "Geben Sie das Laufwerk für"
@QString @M71 = "alle System-Software an:"
@QString @M72 = ""
@QString @M73 = "Geben Sie das Laufwerk"
@QString @M74 = "Ihrer AutoCAD Rel. 12"
@QString @M75 = "Installation an:"
@QString @M76 = "Geben Sie das Laufwerk"
@QString @M77 = "Ihrer Autodesk Animator pro"
@QString @M78 = "Installation an:"
@QString @M80 = "Geben Sie das Laufwerk Ihrer"
@QString @M81 = "MicroStation PC Installation"
@QString @M82 = "an:"
@QString @M83 = "Geben Sie das Laufwerk Ihrer"
@QString @M84 = "Windows 3.1 Installation an:"
@QString @M85 = ""
@QString @M86 = "Geben Sie das Laufwerk Ihrer"
@QString @M87 = "AutoCAD für Windows Rel. 12"
@QString @M88 = "Installation an:"
@QString @M89 = "Geben Sie das Laufwerk"
@QString @M90 = "Ihrer AutoCAD Rel. 13"
@QString @M91 = "Installation an:"

@ElseIf ('F' [= @Group)

@QString @M00 = " installation de miro∙win - Gestionnaires haute vitesse pour CAO"

@QString @M10 = "<\x18\x19>     : déplacer barre de sélection"
@QString @M11 = "<ESC>    : abandonner l'installation"
@QString @M12 = "<Space>  : activer/désactiver élément"
@QString @M13 = "<\x11\xD9>     : utiliser carte sélectionnée et continuer"
@QString @M14 = "<\x11\xD9>     : utiliser tous les éléments sélectionnés et continuer"
@QString @M15 = "<\x11\xD9>     : utiliser l'unité sélectionnée et continuer"

@QString @M20 = "<\x1B\x1A>     : déplacer le curseur"
@QString @M21 = "<Insert> : alterner mode insertion / surfrappe"
@QString @M22 = "<Delete> : supprimer car"
@QString @M23 = "<\x11\xC4>     : supprimer car à gauche"
@QString @M24 = "<\x11\xD9>     : utiliser répertoire sélectionné et continuer"
@QString @M25 = "<ESC>    : abandonner l'installation"

@QString @M30 = "Sélectionnez la carte à installer:"
@QString @M31 = "Sélectionnez les gestionnaires miro à installer:"
@QString @M32 = "Désinstaller tout le logiciel"

@QString @M40 = "pour AutoCAD, Version 12 (miroGTI VGA)"
@QString @M46 = "pour AutoCAD, Version 11 (miroGTI VGA)"
@QString @M47 = "pour AutoCAD, Version 13 (miroGTI VGA)"
@QString @M112 = "for AutoCAD Rel. 12 (miroGTI VGA for Chinese)"
@QString @M111 = "for AutoCAD Rel. 11 (miroGTI VGA for Chinese)"
@QString @M113 = "for AutoCAD Rel. 13 (miroGTI VGA for Chinese)"

@QString @M140 = "uniquement le logiciel système"
@QString @M141 = "uniquement le logiciel système (pour configuration à 2 écrans)"

@QString @M50 = "Désinstaller le logiciel:"

@QString @M60 = "Entrez le répertoire pour tout le logiciel système:"
@QString @M61 = "Entrez le répertoire de votre installation AutoCAD, Vers. 12:"
@QString @M62 = "Entrez le répertoire de votre installation Autodesk Animator pro:"
@QString @M63 = "Entrez le répertoire de votre installation MicroStation PC:"
@QString @M66 = "Entrez le répertoire de votre installation AutoCAD, Vers. 13:"

@QString @M70 = "Entrez l'unité pour"
@QString @M71 = "tout le logiciel système:"
@QString @M72 = ""
@QString @M73 = "Entrez l'unité de"
@QString @M74 = "votre installation AutoCAD Rel. 12"
@QString @M75 = ":"
@QString @M76 = "Entrez l'unité de votre installation"
@QString @M77 = "Autodesk Animator pro"
@QString @M78 = ":"
@QString @M80 = "Entrez l'unité de votre installation"
@QString @M81 = "MicroStation PC:"
@QString @M82 = ""
@QString @M83 = "Entrez l'unité de votre installation"
@QString @M84 = "Windows 3.1:"
@QString @M85 = ""
@QString @M86 = "Entrez l'unité de votre installation"
@QString @M87 = "AutoCAD for Windows, Vers. 12 "
@QString @M88 = ":"
@QString @M89 = "Entrez l'unité de"
@QString @M90 = "votre installation AutoCAD Rel. 13"
@QString @M91 = ":"

@Else

@QString @M00 = " miro∙win installation - High speed drivers for CAD"

@QString @M10 = "<\x18\x19>     : move selection bar"
@QString @M11 = "<ESC>    : abort installation"
@QString @M12 = "<Space>  : toggle item"
@QString @M13 = "<\x11\xD9>     : take selected board and continue"
@QString @M14 = "<\x11\xD9>     : take all selected items and continue"
@QString @M15 = "<\x11\xD9>     : take selected drive and continue"

@QString @M20 = "<\x1B\x1A>     : move cursor"
@QString @M21 = "<Insert> : toggle insert / overwrite mode"
@QString @M22 = "<Delete> : delete char"
@QString @M23 = "<\x11\xC4>     : delete char left"
@QString @M24 = "<\x11\xD9>     : take selected directory and continue"
@QString @M25 = "<ESC>    : abort installation"

@QString @M30 = "Select the board you want to install:"
@QString @M31 = "Select the miro drivers you want to install:"
@QString @M32 = "Completely remove installed software"
@QString @M150 = "Select with your mouse the module of your miroTWINFACE board:"
@QString @M151 = "no miroTWINMODULE"

@QString @M40 = "for AutoCAD Rel. 12 (miroGTI VGA)"
@QString @M46 = "for AutoCAD Rel. 11 (miroGTI VGA)"
@QString @M47 = "for AutoCAD Rel. 13 (miroGTI VGA)"
@QString @M112 = "for AutoCAD Rel. 12 (miroGTI VGA for Chinese)"
@QString @M111 = "for AutoCAD Rel. 11 (miroGTI VGA for Chinese)"
@QString @M113 = "for AutoCAD Rel. 13 (miroGTI VGA for Chinese)"

@QString @M140 = "only system software"
@QString @M141 = "only system software (for dual-screen configuration)"

@QString @M50 = "Uninstall software:"

@QString @M60 = "Enter the directory for all system software:"
@QString @M61 = "Enter the directory of your AutoCAD Rel. 12 installation:"
@QString @M62 = "Enter the directory of your Autodesk Animator pro installation:"
@QString @M63 = "Enter the directory of your MicroStation PC installation:"
@QString @M64 = "Enter the directory of your Windows 3.1 installation:"
@QString @M65 = "Enter the directory of your AutoCAD for Windows Rel. 12 installation:"
@QString @M66 = "Enter the directory of your AutoCAD Rel. 13 installation:"

@QString @M70 = "Enter the drive for"
@QString @M71 = "all system software:"
@QString @M72 = ""
@QString @M73 = "Enter the drive of"
@QString @M74 = "your AutoCAD Rel. 12"
@QString @M75 = "installation:"
@QString @M76 = "Enter the drive of your"
@QString @M77 = "Autodesk Animator pro"
@QString @M78 = "installation:"
@QString @M80 = "Enter the drive of your"
@QString @M81 = "MicroStation PC installation:"
@QString @M82 = ""
@QString @M83 = "Enter the drive of your"
@QString @M84 = "Windows 3.1 installation:"
@QString @M85 = ""
@QString @M86 = "Enter the drive of your"
@QString @M87 = "AutoCAD for Windows Rel. 12 "
@QString @M88 = "installation:"
@QString @M89 = "Enter the drive of"
@QString @M90 = "your AutoCAD Rel. 13"
@QString @M91 = "installation:"

@EndIf
@EndVars

//*** input items to install by user ******************************************

ITEMSELECT:

@If (('D' [= @Group) || ('F' [= @Group))

@GetOption
@CheckBox
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (4,1,31, "@M31")
  @Option 207 = "@M47"
  @Option 200 = "@M40"
  @Option 206 = "@M46"
  @Option 210 = "@M32"
@MoveCStr (17,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (18,2,63, "@M10")
@MoveCStr (19,2,63, "@M12")
@MoveCStr (20,2,63, "@M14")
@MoveCStr (21,2,63, "@M11")
@EndOption

@ElseIf ('E' [= @Group)

@GetOption
@CheckBox
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (4,1,31, "@M31")
  @Option 207 = "@M47"
  @Option 200 = "@M40"
  @Option 206 = "@M46"
  @Option 297 = "@M113"
  @Option 290 = "@M112"
  @Option 296 = "@M111"
  @Option 210 = "@M32"
@MoveCStr (17,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (18,2,63, "@M10")
@MoveCStr (19,2,63, "@M12")
@MoveCStr (20,2,63, "@M14")
@MoveCStr (21,2,63, "@M11")
@EndOption

@If (297 [= @Option)
  @SetOption (207)
@ElseIf (290 [= @Option)
  @SetOption (200)
@ElseIf (296 [= @Option)
  @SetOption (206)
@EndIf

@EndIf


//*** no selection ************************************************************
@If ((200 [! @Option) && (201 [! @Option) && (202 [! @Option)
        && (203 [! @Option) && (204 [! @Option) && (205 [! @Option)
        && (206 [! @Option)
        && (207 [! @Option)
        && (208 [! @Option)
        && (220 [! @Option)
        && (210 [! @Option)
    )
  @Goto ITEMSELECT
@EndIf

//*** define default directories **********************************************

@If (!@UnInstall)
  @DefineVars
    @Dir @SysDir        = "\\MIRO"

    @Drive @GtiDrv      = C
    @Dir @GtiDir        = "\\ACAD"
    @Drive @Gti13Drv    = C
    @Dir @Gti13Dir      = "\\ACADR13"
  @EndVars
@EndIf


//*** input SYSTEM directory by user ******************************************

@If ((200 [= @Option || 201 [= @Option || 202 [= @Option
    || 203 [= @Option || 204 [= @Option || 220 [= @Option
    || 207 [= @Option || 206 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M70")
@MoveCStr (6,1,31, "@M71")
@MoveCStr (7,1,31, "@M72")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @SysDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M60"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input ACAD 12 directory by user *****************************************

@If ((200 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @GtiDrv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M73")
@MoveCStr (6,1,31, "@M74")
@MoveCStr (7,1,31, "@M75")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @GtiDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M61"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input ACAD 13 directory by user *****************************************

@If ((207 [= @Option || 208 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @Gti13Drv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M89")
@MoveCStr (6,1,31, "@M90")
@MoveCStr (7,1,31, "@M91")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @Gti13Dir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M66"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** define default directories (2) ******************************************

//@If (!@UnInstall)
//  @DefineVars
//  @EndVars
//@EndIf


//*** Uninstall software ******************************************************

//- @MwinDrv:@MwinDir\DL_CLIEN.DLL
//- @MwinDrv:@MwinDir\DL_SERV.DLL
//- @MwinDrv:@MwinDir\DL_SRES.EXE
//- @WinGtiDrv:@WinGtiDir\DSMIRO.*
//- @Gti13Drv:@Gti13Dir\WIN\DSMIRO13.*
//- @Gti13Drv:@Gti13Dir\WIN\MIROUT13.DLL
//- @AniproDrv:@AniproDir\RESOURCE\OCTOANI.DRV



@If (210 [= @Option)
  @Display
@M50

- @OutDrive:@SysDir\DRIVERS\CAD\*.*
- @OutDrive:@SysDir\FONT\*.*
- @GtiDrv:@GtiDir\DRV\RCGTI12.EXP
- @Gti13Drv:@Gti13Dir\DOS\DRV\RCGTI12.EXP
- @GtiDrv:@GtiDir\DRV\RCGTI.EXP
- @OutDrive:@SysDir\COMMON\README.EXE
- @OutDrive:@SysDir\COMMON\README.CAD

  @FlushKeyboard ()
  @Pause
  @EndDisplay

  @Delete ("@OutDrive:@SysDir\\DRIVERS\\CAD\\*.*")
  @Delete ("@OutDrive:@SysDir\\FONT\\*.*")
  @Delete ("@OutDrive:@SysDir\\COMMON\\SUPPORT.EXE")
  @Delete ("@OutDrive:@SysDir\\COMMON\\README.EXE")
  @Delete ("@OutDrive:@SysDir\\COMMON\\README.CAD")
  @Delete ("@OutDrive:@SysDir\\COMMON\\STEP3.BAT")
  @Delete ("@OutDrive:@SysDir\\COMMON\\STEP4.BAT")
  @Delete ("@GtiDrv:@GtiDir\\DRV\\RCGTI12.EXP")
  @Delete ("@Gti13Drv:@Gti13Dir\\DOS\\DRV\\RCGTI12.EXP")
  @Delete ("@GtiDrv:@GtiDir\\DRV\\RCGTI.EXP")

  @ClearOption (210)
  @UnInstall = @True
  @Goto ITEMSELECT
@EndIf


//*** files to be copied ******************************************************

@If (200 [= @Option || 201 [= @Option || 202 [= @Option || 206 [= @Option
    || 203 [= @Option || 204 [= @Option || 205 [= @Option || 207 [= @Option
    || 208 [= @Option || 220 [= @Option)

@MkDir ("@OutDrive:@SysDir")
@MkDir ("@OutDrive:@SysDir\\COMMON")
@MkDir ("@OutDrive:@SysDir\\TIMING")
@MkDir ("@OutDrive:@SysDir\\DRIVERS")
@MkDir ("@OutDrive:@SysDir\\DRIVERS\\CAD")
//@MkDir ("@OutDrive:@SysDir\\FONT")
@If ('D' [= @Group)
  @Copy ("@InDrive:\\README.DEU","@OutDrive:@SysDir\\DRIVERS\\CAD\\README.")
  @Copy ("@InDrive:\\README.DEU","@OutDrive:@SysDir\\COMMON\\README.CAD")
@ElseIf ('F' [= @Group)
  @Copy ("@InDrive:\\README.FRA","@OutDrive:@SysDir\\DRIVERS\\CAD\\README.")
  @Copy ("@InDrive:\\README.FRA","@OutDrive:@SysDir\\COMMON\\README.CAD")
@Else
  @Copy ("@InDrive:\\README.ENG","@OutDrive:@SysDir\\DRIVERS\\CAD\\README.")
  @Copy ("@InDrive:\\README.ENG","@OutDrive:@SysDir\\COMMON\\README.CAD")
@EndIf

@DefineDisk
  @Label = "Install disk for DOS # 1/1"
  @BeginLib DRIVERS.RED
    @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
      @File RCGTI12.EXP  @Size 350000 @Out @Gti13Drv:@Gti13Dir\\DOS\\DRV\\*.* @Option 207
      @File RCGTI12.EXP  @Size 350000 @Out @GtiDrv:@GtiDir\\DRV\\*.* @Option 200
      @File RCGTI12.EXP  @Size 350000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.* @Option 206
      @File RCGTI.TXT    @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File RCGTI.BMP    @Size 30000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*

      @If (290 [= @Option || 296 [= @Option || 297 [= @Option)
        @File real.com    @Size 3000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @EndIf

      @File F8500808.RSC @Size 4000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8500814.RSC @Size 5000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8500816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8501224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8501632.RSC @Size 18000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8520816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8521224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8600816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8601224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8630816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8631224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8650816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8651224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8660816.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8661224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*

      @If (200 [= @Option || 207 [= @Option)
        @File MIROMENU.DCL @Size 110000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.EXP @Size 210000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.HLP @Size 75000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.SLB @Size 90000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.TXT @Size 20000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROME13.ARX @Size 38000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.* @Option 207
      @EndIf
    @EndIf
  @EndLib
@EndDisk

@DefineDisk
  @Label = "Install disk for DOS # 1/1"
  @BeginLib SYSTEM.RED
    @If (200 [= @Option || 201 [= @Option || 202 [= @Option
          || 203 [= @Option || 204 [= @Option || 206 [= @Option
          || 207 [= @Option || 220 [= @Option)
      @File SUPPORT.EXE  @Size 12000  @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File README.EXE   @Size 12000  @Out @OutDrive:@SysDir\\COMMON\\*.*
    @EndIf
  @EndLib
@EndDisk

@EndIf


//*** old software to be deleted **********************************************

@If (200 [= @Option || 201 [= @Option || 202 [= @Option
    || 203 [= @Option || 204 [= @Option || 205 [= @Option || 206 [= @Option
    || 220 [= @Option || 207 [= @Option || 208 [= @Option
    || 210 [= @Option)
  @If (200 [= @Option)
  @EndIf
@EndIf



//*** create STEP3 batch ******************************************************

@If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 205 [= @Option || 208 [= @Option || 220 [= @Option)
  @MkDir ("@OutDrive:@SysDir")
  @MkDir ("@OutDrive:@SysDir\\COMMON")
  @Write ("@OutDrive:@SysDir\\COMMON\\STEP3.BAT", "wt", "@@ECHO OFF\n")
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
    @Write (, "at", "SET MIROPATH=@OutDrive:@SysDir\n")
  @EndIf
  @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
    @Write (, "at", "SET GTI=@OutDrive:@SysDir\\DRIVERS\\CAD\n")
  @EndIf
  @If (206 [= @Option)
    @Write (, "at", "SET RDPADI=@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP\n")
    @Write (, "at", "SET DSPADI=@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP\n")
  @EndIf
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
    @Write (, "at", "@OutDrive:@SysDir\\COMMON\\SUPPORT.EXE @BootDrive:\\AUTOEXEC.BAT")
  @EndIf
  @Write (, "at", "\n")
  @Write (, "at", "DEL @OutDrive:@SysDir\\COMMON\\SUPPORT.EXE\n")
  @Write (, "at", "@OutDrive:@SysDir\\COMMON\\README.EXE @OutDrive:@SysDir\\COMMON\\README.CAD\n")
  @Write (, "at", "@OutDrive:@SysDir\\COMMON\\STEP4.BAT\n")


//*** create STEP4 batch ******************************************************

  @Write ("@OutDrive:@SysDir\\COMMON\\STEP4.BAT", "wt", "@@ECHO OFF\n")
  @Write (, "at", "DEL @OutDrive:@SysDir\\COMMON\\STEP3.BAT\n")
@EndIf


//*** set MIROPATH env-variable in AUTOEXEC.BAT ***********************************

@If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
  @SetAutoExec
    @Overwrite
    @SetReplace ("MIROPATH", "@OutDrive:@SysDir")
    @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
      @SetReplace ("GTI", "@OutDrive:@SysDir\\DRIVERS\\CAD")
    @EndIf
    @If (206 [= @Option)
      @SetReplace ("RDPADI", "@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP")
      @SetReplace ("DSPADI", "@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP")
    @EndIf
  @EndAutoExec
@ElseIf (@UnInstall)
  @SetAutoExec
    @Overwrite
    @SetReplace ("OCTO", "")
    @SetReplace ("MIROPATH", "")
    @SetReplace ("GTI", "")
    @SetReplace ("RCPADI", "")
    @SetReplace ("RDPADI", "")
    @SetReplace ("DSPADI", "")
  @EndAutoExec
@EndIf


//*** project trailer block ***************************************************

@Finish
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
      || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
      || 205 [= @Option || 208 [= @Option || 220 [= @Option)
    @ChDrive (@OutDrive)
    @ChDir ("@SysDir\\COMMON")
    @FlushKeyboard ()
    @ReturnValue (4711)
  @Else
    @ChDrive (@BootDrive)
    @ChDir ("\\")
  @EndIf
@EndFinish


//*** eof *********************************************************************